<% if Session("TITEL_SUBKEUZE") > " " then inputveld = Session("TITEL_SUBKEUZE") VERWIJDERTAGS Response.write outputveld & " - " else if Session("TITEL_HOOFDKEUZE") > " " then inputveld = Session("TITEL_HOOFDKEUZE") VERWIJDERTAGS Response.write outputveld & " - " end if end if Response.write Session("SITE-NAAM") %>

<% Response.Expires = -1 'asp altijd opnieuw van de server laten komen Response.Buffer = true 'asp in een keer laten zien %> <% dim aantal2 dim hoogsteteller, t1, t2 dim artikelnr, omschrijving, aantal, prijs dim v1, v2, v3 dim intAantal, intPrijs, regelbedrag, totaalbedrag dim verzendkosten Dim maskerteller dim via_popup dim totaalaantal dim concertagendaID dim artikelgevondenJN via_popup = "" if Request.querystring("popup") = "JA" then via_popup = "&popup=JA" end if %> <% if Session("TITEL_SUBKEUZE") > " " then inputveld = Session("TITEL_SUBKEUZE") VERWIJDERTAGS Response.write outputveld & " - " else if Session("TITEL_HOOFDKEUZE") > " " then inputveld = Session("TITEL_HOOFDKEUZE") VERWIJDERTAGS Response.write outputveld & " - " end if end if Response.write Session("SITE-NAAM") %> "> <% if Request.querystring("popup") = "JA" then %> <% end if %> <% if Request.querystring("popup") = "JA" then Response.write "" else Response.write "" %><% end if %>

<% Session("#TITEL") = "Winkelwagentje" if Session("#TITEL") <> "" then Response.write "" Response.write "" end if if Session("WAARSCHUWING_WINKELWAGENTJE") > " " then Response.write "" Response.write "" end if if Session("OH_gebruikerssoort") > " " AND Session("actueleautorisatieniveau") < 9 then ' niets doen else if Session("ACTIEPRIJZEN_WEBSHOP") = "JA" then response.write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" Response.write "" end if end if if Session("WEBSITEID") = "PROMUSICPUBLISHING" then Response.write "" end if %> <% if Session("actief") <> "JA" then Session("artikelteller") = 0 end if if request.querystring("verhogen") <> "" then artikelnr = Replace(Replace(request.querystring("verhogen"), "hetENteken", "&"), "hetPLUSteken", "+") v2 = artikelnr + "_aantal" if Session(v2) < 9999 then Session(v2) = Session(v2) + 1 end if if request.querystring("verlagen") <> "" then artikelnr = Replace(Replace(request.querystring("verlagen"), "hetENteken", "&"), "hetPLUSteken", "+") v2 = artikelnr + "_aantal" if Session(v2) > 1 then Session(v2) = Session(v2) - 1 end if if request.querystring("wissen") > " " then artikelnr = request.querystring("wissen") artikelnr = Replace(artikelnr, "en-teken", "&") artikelnr = Replace(artikelnr, "plus-teken", "+") v1 = artikelnr + "_oms" v2 = artikelnr + "_aantal" v4 = artikelnr + "_agendaID" Session(v1) = "" if Session(v4) > 0 then if left(artikelnr, 5) = "Foto-" then Session("aantal_fotos") = Session("aantal_fotos") - (Session(v2) + 0) else Session("aantal_toegangskaarten") = Session("aantal_toegangskaarten") - (Session(v2) + 0) ' Response.write "aantal toegangskaarten: " & Session("aantal_toegangskaarten") & "
" end if else Session("aantal_artikelen") = Session("aantal_artikelen") - (Session(v2) + 0) if Lcase(Session(v1)) <> Replace(Lcase(Session(v1)), "dvd", "") then Session("aantal_dvds") = Session("aantal_dvds") - (Session(v2) + 0) ' Response.write "aantal artikelen: " & Session("aantal_artikelen") & "
" end if end if hoogsteteller = Session("artikelteller") + 0 totaalbedrag = 0 totaalaantal = 0 Session("aantal_toegangskaarten") = 0 Session("aantal_artikelen") = 0 Session("aantal_dvds") = 0 Session("aantal_fotos") = 0 if hoogsteteller >= 1 then for teller = 1 to hoogsteteller t1 = teller + 1000 t2 = "volgnummer" & right(Cstr(t1),3) artikelnr = Session(t2) v1 = artikelnr + "_oms" v2 = artikelnr + "_aantal" v3 = artikelnr + "_prijs" v4 = artikelnr + "_agendaID" agendaID = Session(v4) + 0 omschrijving = Session(v1) aantal = session(v2) prijs = session(v3) artikelgevondenJN = "NEE" statement2 = "SELECT artiID FROM artikelen WHERE artiID = '" & Replace(artikelnr, "ppuunntt", ".") & "'" Set oRs2 = oConn.Execute(statement2) Do while (Not oRs2.eof) artikelgevondenJN = "JA" oRs2.MoveNext Loop oRs2.close Set oRs2 = Nothing if Session(v1) > " " then if artikelgevondenJN = "JA" then Session("aantal_artikelen") = Session("aantal_artikelen") + Cdbl(aantal) if Lcase(Session(v1)) <> Replace(Lcase(Session(v1)), "dvd", "") then Session("aantal_dvds") = Session("aantal_dvds") + Cdbl(aantal) else if left(artikelnr, 5) = "Foto-" then Session("aantal_fotos") = Session("aantal_fotos") + Cdbl(aantal) else Session("aantal_toegangskaarten") = Session("aantal_toegangskaarten") + Cdbl(aantal) end if end if end if concertagendaID = "" for concertagendaIDteller = 1 to len(artikelnr) if IsNumeric(mid(artikelnr, concertagendaIDteller , 1)) then concertagendaID = concertagendaID & mid(artikelnr, concertagendaIDteller, 1) & "" next if Session(v1) <> "" then intAantal = Cdbl(aantal) ' intPrijs = Cint(prijs * 100) / 100 intPrijs = prijs + 0 regelbedrag = (intAantal * intPrijs) totaalbedrag = totaalbedrag + regelbedrag totaalaantal = totaalaantal + intAantal inputveld = regelbedrag + 0 MASKERBEDRAGVELD regelbedrag = outputveld inputveld = prijs MASKERBEDRAGVELD prijs = outputveld ' veealijn = "bottom" veealijn = "top" if left(artikelnr, 5) = "Foto-" then veealijn = "top" aantal2 = "value=""" & session(v2) & """" response.write "" Response.write "" Response.write "" & _ "" & _ "" & _ "" & _ "" & _ "" response.write "" end if next if Session("aantal_toegangskaarten") > 0 OR Session("aantal_artikelen") > 0 OR Session("aantal_fotos") > 0 then %><% Session("VERZENDKOSTEN") = verzendkosten + 0 totaalbedrag = totaalbedrag + verzendkosten inputveld = verzendkosten + 0 MASKERBEDRAGVELD verzendkosten = outputveld inputveld = totaalbedrag + 0 MASKERBEDRAGVELD totaalbedrag = outputveld if verzendkosten > 0 then response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" response.write "" end if if verzendkosten < 0 AND totaalbedrag > 0 then response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" response.write "" end if response.write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" if Session("aantal_artikelen") > 0 then response.write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" end if if Session("aantal_fotos") > 0 then response.write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" end if if Session("aantal_toegangskaarten") > 0 then response.write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" end if end if Session("TOTAALBEDRAG") = totaalbedrag + 0 end if if Session("aantal_fotos") = 0 AND Session("aantal_toegangskaarten") = 0 AND Session("aantal_artikelen") = 0 then response.write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" end if %>

" & Session("#TITEL") & "

" & Session("WAARSCHUWING_WINKELWAGENTJE") & "

" if Session("top") = "JA" then Response.write "" Response.write "

Gelieve geen zichtexemplaren via de webwinkel te bestellen.
Zichtexemplaren van onze koormuziek vindt u als PDF bij de artikelen. Wilt u alsnog een zichtexemplaar ontvangen, dan kunt u een email sturen naar info@promusicpublishing.nl, dan sturen wij het naar u op. Bestellingen van koormuziek gaan vanaf 20 exemplaren tenzij uw koor kleiner is (geeft u dat dan wel even aan bij uw bestelling)

" align="center" valign="top">Aantal

" align="center" valign="top">

" valign="top">Omschrijving

" valign="top">

Prijs

" valign="top">

Bedrag

" valign="top" align="center">Wissen

" Response.write "" Response.write "

" if agendaID > 0 then Response.write "" Response.write chr(10) & "" & CHR(10) Response.write "

" Response.write "" Response.write "" Response.write "" Response.write "

" Response.write "" Response.write "

" Response.write "

" if agendaID > 0 then Response.write omschrijving else if left(artikelnr, 5) = "Foto-" then Response.write "" & omschrijving else ' Response.write "" & _ ' "" & _ ' omschrijving & "" Response.write "" & _ "" & _ omschrijving & "" end if end if Response.write "

" & prijs & "

" & regelbedrag & "

" & _ "Wis

Verzend- en administratiekosten

" & verzendkosten & "

Korting

" & verzendkosten & "

Totaal (incl. BTW)

" & totaalbedrag & "

Aantal artikelen:

" & Session("aantal_artikelen") & "

Aantal foto's:

" & Session("aantal_fotos") & "

Aantal toegangskaarten:

" & Session("aantal_toegangskaarten") & "

ER IS GEEN ARTIKEL GESELECTEERD

<% if via_popup = "" then ' ZIE concertagenda.asp if Session("verderwinkelenAGENDA") > " " then Response.write " " Session("caheID") = 0 Session("menuIDterug") = 0 Session("verderwinkelen") = "" Session("menuIDterug") = 0 end if ' ZIE add_in_ww.asp: if Session("NOFRAMES") = "JA" AND Session("menuIDterug") > 0 then Response.write " " Session("verderwinkelenAGENDA") = "" Session("caheID") = 0 Session("verderwinkelen") = "" Session("menuIDterug") = 0 end if ' ZIE catalogus.asp, terugkeren naar een individueel artikel: if Session("verderwinkelen") > " " then Response.write " " ' Session("caheID") = 0 Session("verderwinkelenAGENDA") = "" Session("menuIDterug") = 0 end if if Session("caheID") > 0 AND Session("verderwinkelen") = "" then ' OM DE NAVIGATIEBALKEN IN CATALOGUS.ASP WEER GOED TE ZETTEN Session("verderwinkelenAGENDA") = "" Session("navigatiebalkCATALOGUSterug") = Session("navigatiebalkCATALOGUS") Session("NAVIGATIEBALKKOPterug") = Session("navigatiebalkKOP") Session("#TITEL") = "" Response.write " " end if Session("menuIDterug") = 0 Session("verderwinkelen") = "" if Session("aantal_toegangskaarten") > 0 OR Session("aantal_artikelen") > 0 OR Session("aantal_fotos") > 0 then Response.Write " "">" & _ "

" Response.write "
" & _ "Uw kunt in dit scherm:
" & _ "- de aantallen aanpassen
" & _ "- een artikel wissen uit het winkelwagentje

" & _ "Klik op "Volgende" om uw adres in te geven." end if else Response.write " " end if %>

<% if Session("WEBSITEID") = "JEWEKA" then Session("#MENU-TITEL") = "WINKELWAGENTJE" response.write "" end if if Request.querystring("popup") = "JA" then ' niets doen else %><% end if %>